\font\fontA="[lmroman10-regular.otf]"
\font\fontB="[lmroman10-regular.otf]:mapping=tex-text"

\newdimen\savehsize \savehsize\hsize
\parskip=2ex

\def\test#1#2{{\tt#1}\endgraf\hsize=3pt\noindent #2\endgraf\hsize=\savehsize}

\def\testA#1{\test{#1}{a l'adnam}}

\long\def\testpage{

\fontA

\noindent With proper lccode, result should be {\tt l'-an}, with wrong lccode, no hyphenation\par\strut

\testA{Without lccode}

\bgroup
\lccode"27="27
\testA{With lccode 27->27; OK}
\egroup

\bgroup
\lccode"27="27
\lccode"006E="0027
\testA{With lccode 27->27, n->27}
\egroup

\vskip2\baselineskip

\fontB

\testA{Without lccode (with tex-text)}

\bgroup
\lccode"2019="0027
\testA{With lccode 2019->27 (with tex-text); OK}
\egroup

\bgroup
\lccode"2019="2019
\testA{With lccode 2019->2019 (with tex-text)}
\egroup
}

\uselanguage{apostropheS}
{\bf With savinghyphcodes}
\testpage

\eject

\uselanguage{apostrophe}
{\bf Without savinghyphcodes}
\testpage

\bye
